(cd): Use `mapc' rather than `mapcar'.

diff --git a/lisp/files.el b/lisp/files.el
index 1effa5b4c5925d009043865770266efa30f3a772..33bf434a9f6bd0803def766face255571d62ebef 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -643,7 +643,7 @@ The path separator is colon in GNU and GNU-like systems."
        (let ((trypath (parse-colon-path (getenv "CDPATH"))))
          (setq cd-path (or trypath (list "./")))))
     (if (not (catch 'found
-              (mapcar
+              (mapc
                (function (lambda (x)
                            (let ((f (expand-file-name (concat x dir))))
                              (if (file-directory-p f)